Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Source |  Entry Points |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call
Print Page as PDF
Routine: RMPFPOSU

Package: Remote Order Entry System

Routine: RMPFPOSU


Information

RMPFPOSU ;DDC/KAW-CONTINUATION OF RMPFPOST [ 06/16/95 3:06 PM ]

Source Information

Source file <RMPFPOSU.m>

Entry Points

Name Comments DBIA/ICR reference
ORDER
O1
O2
EXIT
END
ELIGBL
E1
ELG1
ELGE
SUB ;; input: DFN,C,VAEL,VASV,VAMB
1 ;;SERVICE CONNECTED 50% to 100%
2 ;;PRISONER OF WAR;I VASV(4) S RMPFTE=3,YY=""
3 ;;MEXICAN BORDER WAR
4 ;;WORLD WAR I;I $P(VAEL(2),U,2)="WORLD WAR I" S RMPFTE=5,YY=""
5 ;;AID & ATTENDANCE;I VAMB(1)'=0 S RMPFTE=6,YY=""
6 ;;HOUSEBOUND;I VAMB(2)'=0 S RMPFTE=7,YY=""
7 ;;ALLIED VETERAN;D ALLIED^RMPFDD2 I RMPFTE["ALLIED VETERAN" S RMPFTE=8

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!,"Updating old orders"
  • Line Location: ORDER+1
Function Call: WRITE
  • Prompt: "."
  • Line Location: O1+1
Function Call: WRITE
  • Prompt: !!,"POST-INIT COMPLETE"
  • Line Location: EXIT+0

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^RMPF(791810 - [#791810] Classic Fileman Calls
Info |  Source |  Entry Points |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call