IBAN: Difference between revisions

Content added Content deleted

Inline

@@ Line 33: / Line 33: @@
 }
-ClassMethod Mod(num As %Integer, div As %Integer) As %Integer [ Internal, Private ]
+ClassMethod Mod(pNum As %Integer, pDiv As %Integer) As %Integer [ Internal, Private ]
 {
-	If $Length(num)<9 Quit num#div
+	If $Length(pNum)<9 Quit pNum#pDiv
 	Set res=0
-	For i=1:1:$Length(num)\7+1 {
+	For i=1:1:$Length(pNum)\7+1 {
-		Set res=(res_$Extract(num, 1, 7))#div
+		Set res=(res_$Extract(pNum, 1, 7))#pDiv
-		Set num=$Extract(num, 8, *)
+		Set pNum=$Extract(pNum, 8, *)
 	}
 	Quit res